# Biomassa de rvoes

d<- (15)
biomassa1 <- (exp(1)^-1.7953 * d^2.2974)
h <- (12)
b <- (-2.6464) + (((1.9960 * log(d)) + (0.7558 * log (h))))
exp (b)
biomassa2 <- exp (b)
biomassa2

# Sequncias

letra.a <- rep (c ("a"), 6)
numeros <- rep( c(1,2,3), each=3 )
decrescente <- rep(c (1,1,1,2,2,3))
a <- seq (from=1, to=5, length=5)
b<- seq (from=4, to=1, length=4)
sequencia <- (c(a,b))
impares <- seq (from=1, to= 99, length=50)

# Conta de luz

luz <- c(9839,10149,10486,10746,11264,11684,12082,12599,13004,13350,13717,14052)
luz.cons <- diff(luz)
luz.m <- mean (luz.cons)
luz.md <- median (luz.cons)
luz.v <- var (luz.cons)
luz.range <- range (luz.cons)

# rea basal

arvore1 <-(pi * 13.5^2)/4
a<- (pi * 7^2)/4
b<- (pi * 9^2)/4
c<- (pi * 12^2)/4
arvore2 <- sum(a+b+c)

# Varincia na unha

pesos <- c(78.4, 79.8, 76.0, 75.3, 77.4, 78.6, 77.9, 78.8, 79.2, 75.2, 75.0, 79.4)
x <- mean (pesos)
pesos.d2 <- (pesos - x)^2
pesos.d2s <- sum (pesos.d2)
pesos.v <- pesos.d2s/ (length (pesos) -1)
pesos.ds <- sqrt(pesos.d2s)
pesos.s <-  (pesos.ds)/ sqrt(length (pesos) -1)

# Teste t

q<- -2.2
teste.t <- pt(q=-2.2, df= 19, lower.tail=TRUE, log.p = FALSE)*2
teste.t
limite<- abs (qt (p=0.975, df= 19))
limite